home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / database / db3stock / getfld23.prg < prev    next >
Text File  |  1986-04-12  |  532b  |  18 lines

  1. * --------------------------------------
  2. * GETFLD23.PRG - GET A PARTICULAR FIELD
  3. * --------------------------------------
  4. * define KOL as 0 before entering the routine.
  5. * define FEELD as any EMPTY string of any length.
  6. * define MSG as a str <75 chars before entering this routine
  7. * the variable KOL is now the new column position at which to GET the field
  8. msg=msg+"  "+feeld
  9. @ 23,1 say space(77)
  10. set color to 15/0
  11. @ 23,(80-len(msg))/2 say msg
  12. set color to 7/0
  13. kol=col()-len(feeld)
  14. if kol>77
  15.    kol=77
  16. endif
  17. RETURN
  18.